dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "ApplicationMode"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
dim varValue : varValue = ws.RegRead(regPath)


Application.StatusBarText =""
select case varValue
	case 0
		Application.ExecuteCommand("Move")
		Application.StatusBarText ="move"
	case 1
		Application.ExecuteCommand("Add Route")
		Application.StatusBarText ="Add Route"
	case 2 'draw 
		'Application.ExecuteCommand("Move By Cursor Location")
		Application.ExecuteCommand("Move")
		Application.StatusBarText ="move"
		
	case 3 'select pin 
		Application.ExecuteCommand("Add Via at SMD")
		Application.StatusBarText ="Add Via at SMD"
	case else
		Application.ExecuteCommand("Move")
		Application.StatusBarText ="move"
end select

set ws = nothing



